home *** CD-ROM | disk | FTP | other *** search
/ Delphi Informant Complete 1995 - 2000 / Delphi Informant Complete 1995 to 2000.iso / Delphi Informant Magazine Complete Works SOURCE CODE 1995.rar / 1995 / DEC / DI9512DH / mdiframe.dfm / mdiframe.txt < prev   
Text File  |  1995-10-23  |  2KB  |  88 lines
  1. object FrameForm: TFrameForm
  2.   Left = 199
  3.   Top = 105
  4.   Width = 435
  5.   Height = 224
  6.   Caption = 'Text Editor'
  7.   Font.Color = clWindowText
  8.   Font.Height = -13
  9.   Font.Name = 'System'
  10.   Font.Style = []
  11.   FormStyle = fsMDIForm
  12.   Icon.Data = {<image000.ico>}
  13.   Menu = MainMenu1
  14.   PixelsPerInch = 96
  15.   Position = poDefault
  16.   WindowMenu = Window1
  17.   OnCreate = FormCreate
  18.   OnDestroy = FormDestroy
  19.   TextHeight = 16
  20.   object OpenFileDialog1: TOpenDialog
  21.     Left = 416
  22.     Top = 264
  23.   end
  24.   object OpenFileDialog: TOpenDialog
  25.     Filter = 'Text Files (*.txt) | *.txt | All Files (*.*) | *.*'
  26.     Left = 287
  27.     Top = 83
  28.   end
  29.   object MainMenu1: TMainMenu
  30.     Left = 315
  31.     Top = 9
  32.     object File1: TMenuItem
  33.       Caption = '&File'
  34.       object New1: TMenuItem
  35.         Caption = '&New'
  36.         OnClick = NewChild
  37.         ShortCutText = 'Ctrl+N'
  38.       end
  39.       object Open1: TMenuItem
  40.         Caption = '&Open...'
  41.         OnClick = OpenChild
  42.         ShortCutText = 'Ctrl+O'
  43.       end
  44.       object Separator3: TMenuItem
  45.         Caption = '-'
  46.       end
  47.       object MRU1: TMenuItem
  48.         OnClick = MRUOpenChild
  49.       end
  50.       object MRU2: TMenuItem
  51.         Tag = 1
  52.         OnClick = MRUOpenChild
  53.       end
  54.       object MRU3: TMenuItem
  55.         Tag = 2
  56.         OnClick = MRUOpenChild
  57.       end
  58.       object MRU4: TMenuItem
  59.         Tag = 3
  60.         OnClick = MRUOpenChild
  61.       end
  62.       object MRUSeparator: TMenuItem
  63.         Caption = '-'
  64.       end
  65.       object Exit1: TMenuItem
  66.         Caption = 'E&xit'
  67.         OnClick = Exit1Click
  68.       end
  69.     end
  70.     object Window1: TMenuItem
  71.       Caption = '&Window'
  72.       GroupIndex = 9
  73.       object Tile1: TMenuItem
  74.         Caption = '&Tile'
  75.         OnClick = Tile1Click
  76.       end
  77.       object Cascade1: TMenuItem
  78.         Caption = '&Cascade'
  79.         OnClick = Cascade1Click
  80.       end
  81.       object ArrangeIcons1: TMenuItem
  82.         Caption = '&Arrange Icons'
  83.         OnClick = ArrangeIcons1Click
  84.       end
  85.     end
  86.   end
  87. end
  88.